function saveToDesktop(){
	try
	{
		var WshShell = new ActiveXObject("WScript.Shell");
		var oUrlLink = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") + "\\" + "石头网.url");
		oUrlLink.TargetPath = location.url;
		oUrlLink.Save();
	}
	catch(e)
	{
		alert("当前IE安全级别不允许操作！");
	}
}